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IL C-16 SOSTITUISCE IL VIC-20 

Alla Redazione. 

Negli ultimi tempi ho sentito sempre più 
insistentemente parlare dei nuovissimi 
microcomputer della Commodore, più 
precisamente del Commodore 16 e del 
Commodore Plus 4. 

Parlando con i miei amici e compagni di 
hobby, le voci sono contrastanti e nessu¬ 
no è stato capace di darmi un consiglio 
valido sull’acquisto di tali due apparecchi. 
Dico questo perchè, ora, io sono in pos¬ 
sesso di un Vic-20 e desidererei passare, 
senza spendere una montagna di quattri¬ 
ni, a un sistema superiore. 

Vi ringrazio per la sicura risposta. 


Paolo Fossati - Milano 


Parlare di un microcomputer in poche ri¬ 
ghe e cercare di darne una descrizione 
sintetica e nello stesso tempo soddisfa¬ 
cente, è cosa sicuramente ardua, e si ri¬ 
schia quasi certamente di dimenticare di 
descrivere qualche aspetto importante a 
beneficio di altri meno significativi. 
Comunque, per venire incontro al nostro 
lettore, cerchiamo di riassumere in poche 
parole ciò che Paolo ci richiede. 

Il Commodore 16 e il Commodore Plus 4 
sono sicuramente due computer rivolu¬ 
zionari per chi possedeva un Commodore 
Vic-20 o un 64. 

In particolare il discorso vale per il Com¬ 
modore 16 che, per le sue caratteristiche 
di cui andremo a parlare, si presenta co¬ 
me il naturale sostituto del Vic-20. 
Prendiamo in esame le parti che i due 
micro hanno in comune. 


Il Basic 3.5 di cui sono dotati, si presenta 
arricchito di quasi 50 funzioni in più di 
quello del 64 e 20. Esse sono indirizzate 
soprattutto alla gestione della grafica, del 
suono, della programmazione, delle peri¬ 
feriche e dei joystick, e ci ricordano da 
vicino quelle che si possono aggiungere 
al 64 con il Simon’s Basic. 

Questa prerogativa fa si che con semplici 
comandi si effettuino operazioni che, col 
64 e 20, erano consentite solo attraverso 
delle routine, magari complicate, adatte al 
caso. 

Non è certo un aspetto poco importante 
questo: infatti la poca memoria disponibi¬ 
le nel Commodore 16 viene così utilizzata 
per cose “intelligenti” risparmiandola da 
compiti “ingrati”. 

Sarebbe compito ingrato elencare tutte le 
nuove funzioni disponibili e, del resto. 
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stanno uscendo vari libri che analizzeran¬ 
no entrambe le macchine in maniera più 
precisa e particolareggiata. 

Per i più smaliziati sappiate che è in arrivo 
la Reference Guide per il Commodore 16 
e il Commodore Plus 4. 

In ogni caso Vi terremo informati sulle 
novità editoriali in arrivo e sicuramente ne 
pubblicheremo delle dettagliate recen¬ 
sioni. 

Venendo alla domanda del nostro lettore 
pensiamo che, tutto sommato, uno scam¬ 
bio Vic-20 - Commodore 16 è sicuramen¬ 
te vantaggioso e da fare. 

Il prezzo è sicuramente concorrenziale 
(Commodore 16- 200.000 L. - Commodo¬ 
re Plus 4 intorno a 500.000 e nessuna 
macchina ha, a parità di prezzo, tali e 
tante prerogative. 

Non va dimenticato che sono due mac¬ 
chine predisposte al funzionamento con il 
drive. Hanno infatti impostati i tasti funzio¬ 
ne in maniera da non dover scrivere lun¬ 
ghi poemi per accedere al disco, e il Basic 
presenta numerose istruzioni rivoluziona¬ 
rie per tale gestione. 

In conclusione un giudizio sicuramente 
positivo e una previsione che vede, nel 
tempo, un sicuro successo per entrambi i 
microcomputer. Un saluto dalla Redazio¬ 
ne. 


SOFTWARE J.C.E. PER C-64 

Spettabile Redazione, 
sono un grande appassionato d’elettroni¬ 
ca e solo da poco posseggo un Commo¬ 
dore 64. Ultimamente ho acquistato il nu¬ 
mero di gennaio della vostra rivista "Spe¬ 
rimentare Computer”, trovandovi con sor¬ 
presa delle offerte di programmi di carat¬ 
tere matematico-scientifico che mi inte¬ 
ressano particolarmente, quali, ad 
esempio: “Algebra matriciale” e “Studio di 
funzioni” della JCE, ma disponibili solo 
per lo Spectrum 48K. 

Vi chiedo, dunque, se programmi simili 
sono disponibili anche per il Commodore 
64, e, se possibile, di inviarmi dei depliant 
in caso affermativo. Colgo quindi l’occa¬ 
sione per farvi i miei più sinceri compli¬ 
menti per la vostra riuscita pubblicazione 
e spero che mi rispondiate al più presto. 
Distinti saluti. 


Andrea Pascuzzi 
Castellammare di Stabia (Napoli) 

Caro Andrea, siamo lusingati peri compli¬ 
menti al nostro inserto Commodore, pur¬ 
troppo per il momento i programmi di ca¬ 
rattere matematico e didattico sono di¬ 
sponibili solo per lo Spectrum 48K. Seb¬ 
bene il C-64 sia il più diffuso degli Home 
Computers gli autori di software su que¬ 
sta macchina non sono così numerosi co¬ 
me quelli dello Spectrum; ancora meno 
numerosi sono gli autori che hanno espe¬ 


friggili 
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rienza di C-64 e contemporaneamente 
conoscono sufficientemente anche lo 
Spectrum per poter trasferire i programmi 
dall’uno all’altro. 


COMMODORE INGLESI 

Ho ordinato un Commodore in Inghilterra, 
allettato da una pubblicità a prezzo inte¬ 
ressante, trasporto e assicurazione com¬ 
presi, esente da tassazione. 

Naturalmente ho dovuto pagare in antici¬ 
po, e dopo aver atteso per svariate setti¬ 
mane, ho ricevuto un avviso che c’era per 
me un pacco in Dogana da ritirare. 

Ho perso un sacco di tempo in quegli 
uffici e ho dovuto sborsare altri soldi per 
cui, a conti fatti, non ho risparmiato niente 
e mi sono preso anche delle arrabbiature. 
Come spiegate questo fatto? 

Giuseppe Molletta 

Si fa presto a spiegare. Quell’“esente da 
tassazione" riguarda l’Inghilterra, non l’I¬ 
talia. La pubblicità che ti ha allettato non 
diceva bugie. Ma l’esenzione andava inte¬ 
sa nel senso che gli inglesi, esportando, 
non pagano sulla merce la loro VA T, corri¬ 
spondente alla nostra IVA. 

Quando, invece, la merce arriva alla Do¬ 
gana italiana, la situazione si rovescia. Il 
destinatario, essendo italiano in Italia e 
importatore, non può ovviamente fruire 
dei vantaggi del mittente, che è inglese in 
Inghilterra ed esportatore. 

La Dogana italiana è il castigamatti. Se 
vuoi ritirare il tuo pacco, paga l’IVA. Se no 
sai che cosa ti può capitare? Che il tuo 
pacco ritorna al mittente, perchè ufficial¬ 
mente è ‘‘come se tu lo avessi rifiutato". Va 
a finire che gli inglesi, i quali ricevono i 
soldi in anticipo, se no col cavolo spedi¬ 
scono la merce, ricevono anche il compu¬ 
ter di ritorno. E tu reclama, se ti conviene, 
perché la commedia ricomincia da capo. 
Dunque, o paghi l’IVA, e come hai speri¬ 
mentato non risparmi nulla, ti arrabbi e 
perdi tempo, oppure prendi una bella fre¬ 
gatura e la colpa è tua. 


DISALLINEAMENTO DRIVE 

Spett.le Redazione, 

sono un vostro superaffezionato lettore. 
Essendo possessore di un C-64 vi faccio i 
miei complimenti per l’inserto Commodo¬ 
re e spero che sarà ampliato. 

Vi volevo fare due domande; la prima ri¬ 
guarda il mio drive 1541 che spesso non 
gradisce i dischetti dei miei amici, per¬ 
ché? 

Poi, anche se è una domanda strana, ho 
sentito dire che è in preparazione un letto¬ 
re laser per il mio computer. È vero? E se è 
vero, potete darmi qualche informazione? 


Vi saluto calorosamente. 

Giuseppe Fanale - Palermo 

Caro Giuseppe, secondo il parere dei no¬ 
stri tecnici, il tuo drive potrebbe avere un 
lieve disallineamento delle testine di lettu¬ 
ra e scrittura, il che comporta il fatto che 
legge solo sui dischetti su cui ha scritto 
precedentemente, cioè i tuoi, mentre non 
riesce a leggere nessun segnale su quelli 
dei tuoi amici. 

Ti consigliamo di farlo controllare da un 
tecnico specializzato per riallineare per 
bene le testine. 

Per la seconda domanda purtroppo non 
ne sappiamo molto neppure noi: quest'e¬ 
state era circolata la voce della messa a 
punto, in America, di un lettore laser per 
computer ma noi non l’abbiamo mai visto 
qui in Italia e dubitiamo, se esistesse vera¬ 
mente, che venga importato. 

Ti salutiamo e ti ringraziamo per i compli¬ 
menti. 




TURBO TAPE PER C-64 

Spettabile Redazione di Sperimentare, 
con la presente mi propongo di farvi al¬ 
cune richieste. Gradirei che nella rubrica 
“A Tutto Commodore" fosse pubblicato 
se è possibile un eventuale metodo per 
accelerare il salvataggio e la lettura di file 
e programmi da nastro e da disco. Sono 
cosciente di chiedervi una cosa non sem¬ 
plice ma di tale interesse da giustificare la 
sua pubblicazione. Vi rinnovo i miei 
complimenti alla eccellente rivista e con 
la speranza che la mia richiesta sia presa 
in considerazione, sentitamente ringrazio. 

Filiberto Foresti 
S. Nicola Arcella (CS) 

Caro Filiberto, siamo lusingati per i com¬ 
plimenti che gentilmente indirizzi alla no¬ 
stra rivista e per ricambiare cercheremo 
di esaudire il tuo desiderio. Come ben 
saprai esiste un sistema di caricamento 
chiamato "Turbo Tape” che permette di 
caricare il programma molto più veloce¬ 
mente, circa sette volte; ogni casa produt¬ 
trice di software ha il suo "Turbo”coperto 
da copyright. Per pubblicare quindi un 
programma di tipo "Turbo" dovremmo re¬ 
alizzarne uno completamente nuovo il 
che non è una delle cose più facili, ma 
possiamo rassicurarti che il tuo consiglio 
non cadrà nel vuoto e in uno dei prossimi 
numeri avrai una gradita sorpresa con la 
pubblicazione di un "Turbo"per cassetta 
e uno per il disco. Meglio di così non pote¬ 
vamo certo fare, ci congediamo invitan¬ 
doti a scriverci ancora per i tuoi prossimi 
eventuali problemi. 







C0C0 2 

Un fantastico computer games di tipo educativo, 
che ti permetterà di creare da solo i tuoi giochi. 

Coco 2 ti insegna la teoria dei giochi, la grafica 
dei computers, i simboli della programmazione e il disegno 
logico. Coco 2 non richiede alcuna precedente esperienza 
di programmazione. 

Supporto: cassetta e disk 

Configurazione richiesta: 16K RAM, registratore o floppy 
disk 1541 


TF/9316-03 


PREDATOR 

Fierocome un'aquila, voli nel cielo,difendendo il tuo spazio 
dagli attacchi di nemici pennuti. Mano a mano che sconfiggi 
i tuoi avversari, avanzi lungo la scala di 99 livelli 
di difficoltà. Come un'aquila aspiri a raggiungere altezze 
sempre più grandi. Un gioco per tutte le età con concetti 
inediti e differenti dai tradizionali. 

Supporto: cartridge 

Configurazione richiesta: standard, joystick 
Istruzioni in italiano. 


TF/9316-40 


MINNESOTA FATS' POOL CHALLENGE 

Un simulatore di biliardo con tutte le caratteristiche reali 
di un vero biliardo. Il gioco richiede tutta la precisione, 
la mira e gli effetti come un biliardo da sala giochi. 

Sono previsti 1 o 2 giocatori con 6 varianti di gioco. 
Supporto: cartridge 

Configurazione richiesta: standard, joystick 


TF/9200-13 


COCO 

Eccezionale computer games di tipo educativo, che insegna 
le tecniche fondamentali del computer, il linguaggio basic, 
come risolvere i problemi scomponendo ogni programma 
in semplici pezzi e simulando l'effetto di ogni istruzione. 
Coco ti permette di capire come lavora un computer. 
Supporto: cassetta 
Configurazione richiesta: standard 
Istruzioni in italiano 


TF/9205-02 


TF/9200-02 


SOFTWARE 


Aggressor Protector 



rredator 



L. 12.500 


L. 12.500 


L. 26.500 


L. 12.500 


PER COMMODORE VIC 20 


TORG 

TORG è un'avventura all'interno di un intricato labirinto. 
Intrappolato dentro una griglia devi assolutamente cercare 
la via d'uscita distruggendo le varie ondate di mostri 
che ti attaccano per annientarti. 

Supporto: cassetta 

Configurazione richiesta: RAM standard, joystick 


TF/9316-01 


L. 3.900 


PROTECTOR 

Le orde della città di Fraxullan stanno attaccando 
la tua città e catturando gli abitanti. 

Tu devi aiutare la popolazione, trasportandola nella Città 
della Nuova Speranza, sull'altro lato del vulcano; 
ma i sopravvissuti non sono ancora salvi. 

Ogni persona dovrà essere nuovamente trasportata 
nella fortezza di Verdann prima che il vulcano esploda, 
travolgendoli tutti. 

Supporto: cartridge 

Configurazione richiesta: standard, joystick 
Istruzioni in italiano. 


TF/9316-36 


L. 12.500 


RAID ON ISRAM 

Una missione di ricerca e distruzione controllata interamente 
dal joystick. Con l’aiuto dei lanciarazzi, piloti il tuo caccia 
in una fantastica avventura ai limiti del reale. 

Supporto: cassetta 

Configurazione richiesta: RAM standard, joystick 

TF/9316-02 L. 3.900 

PER COMMODORE 64 


AGGRESSOR 

Come un valoroso pilota devi proteggere i depositi di benzina 
di Stellarium dagli attacchi delle navicelle di Zaurien. 

Stai attento alle mine spaziali e ai vari tipi di astronavi 
nemiche. 

Supporto: cartridge 

Configurazione richiesta: standard, joystick 
Istruzioni in italiano. 


TF/9316-28 


L. 12.500 


Coco 



GHOST MANOR/SPIKE'S PEAK 

Due splendide avventure grafiche al prezzo di una. 

In Ghost manor il giocatore deve affrontare spettri 
e scheletri, mostri mummie e formiche mortali per salvare 
l'amico dal Conte Gracula. In Spike's Peak una straordinaria 
sequenza di catastrofi naturali e pericoli mortali 
si susseguono e impediscono il giocatore nella conquista 
della cima della montagna. 

Supporto: diskette 

Configurazione richiesta: floppy disk 1541 


TF/9200-1 1 


L. 22.000 


Pool Challenge 


BENJI'S SPACE RESCUE 

Assieme al cane Benji' stella di molti sceneggiati televisivi 
americani, intraprenderà un viaggio attorno al sistema solare, 
alla ricerca di alcuni scienziati rapiti. Scoprirai le meraviglie 
del cosmo, e combatterai contro alieni, insieme al fedele 
Benji. Dovrai mettercela veramente tutta per scoprire dove 
sono tenuti prigionieri gli scienziati. Ce la farai? 

Supporto: diskette 

Configurazione richiesta: floppy disk 1541 

TF/9205-06 L. 7.000 


THE PIT 

In questo famoso gioco arcade bisogna condurre 
l'avventuriero nel tunnel sotterraneo di un pianeta alieno 
alla ricerca del favoloso forziere che però contiene PIT, 
una trappola mortale dalla quale nessuno è ancora riuscito 
a sfuggire. Un feroce e crudele robot ti renderà la vita 
impossibile inseguendoti per tutto il percorso. 

Supporto: cartridge 

Configurazione richiesta: standard, joystick 

TF/9200-16 L. 26.500 


RETROBALL 

L'emozionante e divertente gioco dell'Hockey su ghiaccio 
riproposto ora sul computer. 

Possibilità di giocare fra 2 giocatori o contro il computer. 
Supporto: cartridge 

Configurazione richiesta: standard, joystick 
Istruzioni in italiano. 


For Commodore 64 


L. 7.500 



ULTERIORE SCONTO 
DEL 10 % 

A CHI ACQUISTERÀ’3 GIOCHI 


Cod. progr. 

Q.tà 

Cod. progr. 

Q.tà 

- 

Cod. progr. Q.tà 







Cod. progr. 

Q.tà 

Cod. progr. 

Q.tà 

Cod. progr. 

Q.tà 







Cod. progr. 

Q.tà 

Cod. progr. 

Q.tà 

Cod. progr. 

Q.tà 








Desidero ricevere il materiale indicato nella tabella, a mezzo pacco postale 
contro assegno, al seguente indirizzo: 


Nome 





















Cognome 




















Via 

Città 

Data 



















































C.A.P. 












SPAZIO RISERVATO ALLE AZIENDE - SI RICHIEDE L’EMISSIONE DI FATTURA 


Partita I.V.A. 

r 


ffil 









J 


i 


PAGAMENTO: 

A) Anticipato, mediante assegno bancario per l'importo totale 
dell’ordinazione. 

B) Contro assegno, in questo caso, è indispensabile versare un acconto 
di almeno il 50% dell’Importo totale mediante assegno bancario. Il 
saldo sarà regolato contro assegno. 

AGGIUNGERE: L. 5.000 per contributo fisso. 

I prezzi sono comprensivi di I.V.A. 

Via G. Verdi, 23/25 

20095 - CUSANO MILANINO - MILANO 


DI VIS. 


EXELCO 





















































































































































































SPEECH 64 
Sintetizzatore vocale 
per Commodore 64 


Grazie alle potenti capacità sonore 
del Commodore 64 si è riusciti a dar la 
parola a questo affascinante perso¬ 
nal. 

Molti saranno abbastanza scettici 
sul fatto che un computer di queste 
dimensioni possa realmente genera¬ 
re delle parole dette in modo più che 
comprensibile. È questa era anche la 
nostra tendenza prima di aver provato 
il sintetizzatore vocale “Speech 64” 
della ditta britannica Currah Compu- 
tor Components e disponibile in Italia 
presso tutti i negozi GBC a lire 
109.000 + IVA. Ci siamo infatti ricre¬ 
duti dopo aver sentito realmente una 
serie di parole dette dal computer in 
maniera eccellente. Il sintetizzatore 
vocale va inserito nella porta riservata 
dal Commodore 64 alle espansioni. 
L’operazione si conclude con il colle¬ 
gamento del cavetto posto nella parte 
posteriore dell’interfaccia alla presa 
audio-video. In queste condizioni si 
può accendere il computer ed ese¬ 
guire una semplice istruzione per 
sentire il Commodore 64 “parlare”. In¬ 
serendo nel computer il comando 
INIT lo si abiliterà a ripetere il suono 
prodotto da qualsiasi tasto della ta¬ 
stiera. Premendo RETURN, il calcola¬ 
tore ripeterà la parola con un perfetto 
accento americano. È a questo punto 
che cominciano ad esserci le prime 
grane. Fino a quando si fa ripetere al 
computer parole in inglese non ci so¬ 
no problemi, ma il difficile è far ripete¬ 
re parole italiane dato che l’accento 
resta sempre americano soprattutto 
per alcune lettere particolari come 
“R” oppure “T“. Ma senza andare a 
prendere parole estere per SPEECH 
64 (ricordiamoci che è un prodotto 
inglese!), ci accorgiamo che sbaglia 
anche le più semplici leggi di fonetica. 
Se infatte provate a scrivere “Kind”, il 
computer vi risponderà ignorante- 
mente con un secco “Kind”. 

Logicamente l’autore ha pensato di 
produrre un sintetizzatore vocale e 
non un maestro di grammatica. E giu¬ 
stamente, non essendo possibile in¬ 
culcare nell’interfaccia una EPROM 
con migliaia di regole grammaticali, si 
è pensato di produrre un linguaggio 
fonetico in modo tale da far leggere al 


NUOVA STAMPANTE 
COMMODORE 
MPS 802 

La Commodore ha recentemente 
presentato una nuova stampante, che 
si affianca a quelle già disponibili, co¬ 
me la MPS-801 o la printer plotter. 
Questa macchina presenta delle par¬ 
ticolarità, che la rendono estrema- 
mente interessante. 

Fisicamente; la stampante si pre¬ 
senta come un parallelepipedo rea¬ 
lizzato in materiale plastico dello 
stesso colore del C-64. 

Sulla destra c’è il tasto per l’accen¬ 
sione, mentre sul frontale, accanto al¬ 
la targhetta, è presente il tasto per 
l’avanzamento automatico della car¬ 
ta. 

La stampante è ovviamente ad im¬ 
patto, a matrice di punti. 

La matrice è di 8x8 punti, quindi più 
grande delle matrici normalmente 
usate. Ul numero di colonne di stam¬ 
pa è come al solito 80. La velocità di 
stampa varia a seconda del numero di 
colonne di stampa visualizzate, da un 
minimo di 45 linee al minuto per 80 
colonne, a 124 linee al minuto se si 





computer particolari parole. Se per 
esempio vogliamo sentire la parola 
“Hawaii”dobbiamo inserire nel com- 


usano solo 20 colonne di stampa. La 
stampa è bidirezionale e di ottima fat¬ 
tura. 

Il set di caratteri comprende le lette¬ 
re maiuscole, minuscole (con i discen- 
dentiy, i simboli grafici del Commodo¬ 
re e altresì i caratteri definiti dall’uten¬ 
te. 



Oltre a ciò la macchina può effet¬ 
tuare stampa grafica. 

La distanza fra le linee è program¬ 
mabile. 

Insieme alla macchina, viene forni¬ 
to un manuale di una quarantina di 
pagine, che spiega nel dettaglio le va¬ 
rie funzioni e possibilità della stam¬ 
pante, che in alcuni casi superano le 


puter “hawhy’ee”. Può sembrare un 
metodo un po’ macchinoso per mani¬ 
polare le parole, ma è anche l’unico 
sistema di far parlare il computer an¬ 
che in altre lingue. Un’altro elemento 
molto interessante è la possibilità di 
far dire al computer parole con due 
tonalità di voce diverse, una alta e una 
bassa (non tutte le parole vengono 
fedelmente riprodotte con una sola 
voce). 

Per coloro che hanno intenzione di 
comprare SPEECH 64 gli consiglia¬ 
mo di cominciare a far dire al compu¬ 
ter prima di tutto semplici numeri o 
lettere e poi passare alle parole per 
finire alle frasi intere di senso com¬ 
piuto. La lettera della tastiera viene 
abilitata con il comando KON e disa¬ 
bilitata con KOFF. Le impressioni che 
ci ha suscitato questa interessante in¬ 
terfaccia sono molto positive, consi¬ 
derando anche le possibili applica¬ 
zioni di questa periferica. Un po’ ro¬ 
botico, ma tutto sommato il 64 è stato 
arricchito da con un ottima voce. 


★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★ 









NOTIZIE 


possibilità dell’unità centrale alla 
quale è collegata. 

I comandi per il funzionamento del¬ 
la stampante sono quelli soliti, con 
alcune particolarità però. 

La OPEN, che apre il flusso di co¬ 
municazione con la stampante ha tre 
parametri. Il primo indica il numero 
del file, il secondo il numero della pe¬ 
riferica, mentre il terzo indica il forma¬ 
to di stampa scelto. 

Questo terzo numero, che può va¬ 
riare fra 0 e 10, ha diversi significati. 
Lo 0 indica alla stampante di effettua¬ 
re la stampa dei caratteri, nello stesso 
modo in cui li riceve in maiuscolo/ 
grafico, mentre il 7, fa la stessa cosa 
con i caratteri maiuscoli/minuscolo. 
Altri numeri definiscono il numero di 
linee per pagina, la distanza fra que¬ 
ste linee. 

Come abbiamo precisato all’inizio, 
la macchina ha però una particolarità, 
e cioè la possibilità di utilizzare una 
funzione di PRINT USING (anche se 
solo su stampante), permettendo così 
all’utente di definire il proprio formato 
di stampa. 

Ovviamente questa possibilità per¬ 
mette di risolvere molti dei problemi 
relativi ad esempio alla stampa di fat¬ 


ture commerciali, e altri documenti di 
questo tipo. 

La formattazione dei dati, avviene 
aprendo un secondo canale di comu¬ 
nicazione, che serve a specificare il 
formato dei dati che verranno stam¬ 
pati attraverso il normale canale di 
comunicazione. 

I canali aperti contemporaneamen¬ 
te per dare le diverse direttive posso¬ 
no essere più di uno, come abbiamo 
già visto. 

Oltre a quello di trasmissione dati e 
trasmissione formato di stampa, se ne 
possono aprire altri, con il compito ad 
esempio di trasmettere il numero di 
linee per pagina da utilizzare. 

In genere questi comandi vengono 
utilizzati contemporaneamente a dei 
codici di comando della stampante. 

Risulta quindi abbastanza com¬ 
plesso, perlomeno inizialmente, ri¬ 
uscire a sfruttare pienamente le ca¬ 
ratteristiche della MPS 802, proprio a 
causa delle numerose possibilità of¬ 
ferte dalla stessa e dal modo un po’ 
macchinoso che viene utilizzato per 
impartire i comandi. Le difficoltà si 
hanno inoltre a causa del funziona¬ 
mento solo su stampante di questi co¬ 
mandi, per cui all’utente non è dato 


modo di visualizzare prima sul video, 
il risultato delle operazioni che sta 
eseguendo. 

Inutile comunque sottolineare il fat¬ 
to, che vale proprio la pena di com¬ 
piere lo sforzo di apprendere le mo¬ 
dalità operative di questa stampante, 
per potere beneficiare di tutte le pos¬ 
sibilità da essa offerte, e tali da tra¬ 
sformare il modo stesso di operare 
del Commodore, e quindi anche il 
modo di fare programmi. 

La tabella dei caratteri di controllo è 
presente anch’essa sul manuale, sul 
quale sono altresì riportati numerosi 
esempi esplicativi delle modalità ope¬ 
rative necessarie per combinare fra 
loro questi comandi. 

La macchina può stabilire anche 
caratteri ridefiniti, che possono esse¬ 
re realizzati come normalmente av¬ 
viene sullo Spectrum, utilizzando una 
matrice di 8x8 punti, nella quale si 
vanno a calcolare i valori decimali dei 
punti settati o meno. 

La macchina può altresì stampare 
in reverse, o con dei caratteri con 
doppia larghezza. 

Entrambe queste prestazioni si ot¬ 
tengono o con codici di controllo o 
utilizzando i comandi tipici del video. 
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“BREAK FEVER” 
IL NUOVO 
PROGRAMMA 
DELLA 

INTERCEPTOR 

SOFTWARE 


La Interceptor Software ha rea¬ 
lizzato per Commodore 64 un fan¬ 
tastico programma di animazione 
e musica con tema la modernissi¬ 
ma e trascinante Break Dance. Il 
programma è dotato di un’ottima 
grafica e di una colonna sonora di 
sottofondo che ha pochi uguali, il 
programma sarà disponibile su di¬ 
sco e cassetta, in Italia non è anco¬ 
ra annunciata la disponibilità e il 
prezzo. 


















NEI MEANDRI 
DEL 

COMMODORE 64 

-a cura di Franco Francia- 


GLI SPRITES: SECONDA PARTE 

Riprendiamo il nostro viaggio immagi¬ 
nario aH’interno del COMMODORE 64 
continuando a parlare di quei fantastici 
blocchetti definibili e semovibili meglio 
conosciuti sotto il nome di SPRITES (fol¬ 
letti). La volta scorsa abbiamo illustrato 
quelle che sono le loro caratteristiche di 
base, ovvero: 

(*) indipendenza totale dalla memoria vi¬ 
deo e da qualsiasi scenario in alta risolu¬ 
zione presente sullo sfondo; 

(*) facilmente definibili dall’utente; la te¬ 
diosità delle operazioni di calcolo dei dati 
che li compongono può essere scavalca¬ 
ta per mezzo di appositi programmi ausi¬ 
liari denominati ‘SPRITE EDITORS’; 

(*) possibilità di gestirne il movimento e la 
relativa velocità di spostamento; 

(*) permettono un considerevole rispar¬ 
mio di memoria rispetto aH’impiego di ca¬ 
ratteri ridefiniti; 

(*) possibilità di diagnosticare qualsiasi 
loro collisione, sia con lo sfondo che con 
altri sprites; questa caratteristica è alla 
base delle evoluzioni di un videogame; 
(*) definibili in uno dei sedici colori dispo¬ 
nibili (monocolori), oppure in tre colori a 
scelta, ma con risoluzione orizzontale di¬ 
mezzata (multicolori). Dopo aver visto co¬ 
me sviluppare il calcolo dei dati che li 
compongono, inizieremo questo mese ad 
occuparci della loro implementazione al¬ 
l’interno di un programma, ovvero come 
gestirli in seguito alla definizione della 
struttura grafica vera e propria. In conclu¬ 
sione, come promesso, vi presenteremo il 
listato di uno sprite editor multicolore. 

PROGRAMMAZIONE DI UNO SPRITE 
PASSO DOPO PASSO 

La prima tappa del nostro programma, 
come già illustrato precedentemente, 
consiste nella definizione dei dati che for¬ 
meranno il nostro sprite. Questi valori nu¬ 
merici, 63 in totale, vengono gestiti sotto 
forma d’istruzioni DATA, in modo che il 
computer le possa leggere per mezzo di 
un comando READ e quindi immagazzi¬ 
narle in memoria. Una piccola e buffa cre¬ 
atura aliena verrà visualizzata per mezzo 
dei seguenti valori: 



DATA 0, 0, 0, 0,0, 0, 0,0, 0,0, 0, 0,0,126,0, 
0, 255, 0, 1, 255, 128 
DATA 3, 255, 192, 3, 255,192, 3,213,192, 
3, 255, 192, 3, 255, 192 
DATA 1,255,128,0,255,0,0,66,0,0,66,0, 
0, 231, 0, 0, 0, 0, 0, 0 
DATA 0, 0, 0, 0, 0, 0, 0 

Queste istruzioni DATA possono esse¬ 
re inserite in qualsiasi punto del nostro 
programma, ne più ne meno come ogni 
altra forma di dati numerici da memoriz¬ 
zare; è tuttavia consigliabile posizionarle 
in coda ad esso, in modo da evitare a 
priori possibili fonti di interferenza o addi¬ 
rittura autodistruzioni accidentali. 

La successiva tappa del nostro lavoro 
equivale alla ricerca di una zona appro¬ 
priata della memoria all’Interno della qua¬ 
le porre i precedenti dati, segnalando 
contemporaneamente al computer dove 
trovarli per mezzo di un assegnamento ad 
un apposito puntatore. 

Il VIC II chip, ovvero quello che si occu¬ 
pa della gestione del video, è in grado di 
accedere soltanto a 16 Kbytes per volta, 
all’interno dei quali devono trovarsi con¬ 
temporaneamente la memoria di scher¬ 
mo, il generatore di caratteri e l’informa¬ 
zione riguardante gli sprites. In via pura¬ 
mente teorica, in un tale banco potrebbe¬ 
ro essere contenuti 128 sprites; in realtà, 
non tutte le 128 posizioni sono utilizzabili, 
in quanto memoria di schermo e genera¬ 
tore di caratteri limitano sensibilmente la 
memoria disponibile. In funzione del ban¬ 
co di 16 Kbytes prescelto, altre locazioni 
possono risultare inaccessibili. 

All’accensione della macchina, il ban¬ 
co assegnato è quello delimitato dalle lo¬ 
cazioni 0 e 16383. In esso, la maggior 
parte dei primi 1024 bytes è riservata a 
funzioni interne o di controllo; la memoria 
di schermo è posta da 1024 a 2023; il 
generatore di caratteri, benché residente 
in ROM, ha un’immagine da 4096 a 8191; 
infine, non bisogna dimenticare che a 
partire da 2048 si troverà il nostro pro¬ 
gramma BASIC. Come potete ben vedere, 
è necessario prestare molta attenzione 
nel scegliere dove locare i dati degli spri¬ 
tes; nel caso vogliate difinirne un numero 
considerevole, vi consigliamo di spostare 


più avanti l’inizio del BASIC, oppure di 
passare ad un altro banco di 16 Kbytes 
che non interferisca con le vostre opera¬ 
zioni. Per il momento, ci limiteremo co¬ 
munque al solo impiego del banco zero 
iniziale, in quanto più semplice da trattare. 
Dopo queste doverose premesse, vedia¬ 
mo adesso dove far memorizzare dal pro¬ 
gramma i dati degli sprites che utilizzere¬ 
mo; nel caso questi non oltrepassino il 
numero di tre, un ottimo posto è rappre¬ 
sentato dal buffer di cassetta, situato da 
832 a 1023, a condizione di non usare 
quest’ultima periferica per trasferimenti 
d’informazione. Uno sprite si piazzerà 
quindi da 832 a 894, un secondo da 896 a 
958, ed un terzo da 960 a 1022. In caso si 
desideri utilizzare il registratore, oppure si 
disponga di più di tre sprites, è necessario 
cambiare zona di memoria; un indirizzo 
consigliabile è 12288, in quanto è normal¬ 
mente abbastanza elevato da non interfe¬ 
rire con il programma BASIC. Per essere 
sicuri di non interferire, è possibile pro¬ 
teggere quest’area per mezzo di: 

POKE 52,48:POKE 56,48 

In questo modo, il BASIC (tanto il pro¬ 
gramma quanto le variabili) non potrà mai 
oltrepassare tale indirizzo di memoria, 
salvaguardando così l’integrità dei nostri 
dati. 

Dopo aver deciso dove sistemare gli 
sprites da utilizzare, dobbiamo comuni¬ 
care al computer dove andare a prelevare 
i valori interessati. A questo ci pensano 8 
particolari locazioni (una per ogni sprite 
indirizzabile) denominate ‘puntatori di 
sprite’, e situate in fondo alla memoria di 
schermo. Tali locazioni, inizialmente po¬ 
ste da 2040 (sprite zero) a 2047 (sprite 
sette), dipendono dal posizionamento di 
quest’ultima, motivo per cui non sono as¬ 
solute. Come ben sapete, un byte può 
contenere valori compresi fra zero e 255; 
il numero di blocchi di 64 bytes contenuti 
in un banco di 16 Kbytes (quello gestito 
dal VIC II chip) è esattamente 256 
(16384/64 = 256). Il valore immagazzina¬ 
to nel relativo puntatore indicherà pertan¬ 
to al computer il numero del blocco di 64 
bytes contenente i dati dello sprite consi¬ 
derato. Vediamo un piccolo esempio: 
POKE 2040,192 

indicherà al computer che i dati riferiti allo 
sprite zero sono situati nel centonovanta- 
duesimo blocco di 64 bytes, ovvero a par¬ 
tire dall’indirizzo (192*64 = 12288). 

Vi rammentiamo che soltanto i primi 63 
bytes del blocco caratterizzano lo sprite 
in questione, mentre il sessantaquattresi- 
mo non viene utilizzato. 

Generalmente, i puntatori di sprite cor¬ 
rispondono alle ultime otto locazioni del 
Kbyte comprendente la memoria di 
schermo, spostando la quale anche que¬ 
sti ultimi vengono alterati. 

Un esempio dell’estrema utilità di questi 
puntatori è dato dal fatto che, per creare 
una forma di animazione, è sufficiente ri- 









UTILITY 


10 REM **************************** 
12 REM **** SPRITE EDITOR MULTI**** 

14 REM **************************** 

15 REM 

16 REM 

17 REM - 

18 REM COPYRIGHT <C> 1985 JCE 

19 REM - 

20 REM 

21 REM 

22 REM 

25 REM LA PRIMA VOLTA PROVA A SELEZ 
IONARE(IN ORDINE), I COLORI 1, 9 

E 12 

26 REM PER DARE UN’OCCHIATA ALLA CO 
MB INAZIONE FAVORITA DELL'AUTORE. 

29 REM 

30 REM 

31 REM 

40 P0KE828,0 

45 V=53248:NO=13sSP=13:POKEV+21,0 
50 READFF 
60 IFFF >0THEN804 

69 REM - 

70 REM NON PIU' SPRITE DATA 

71 REM - 

80 P0KE53281 ,0 : POKE53280,0 : PRINT’’^" 
85 GOSUB3000 

90 DEFFNA<ZZ)=1065+R*40+C 
110 XL=0sYL=lsXG=16sSE=21:XY=23SXX=2 
9 

120 SC=39SPRINT"J" 

130 POKE2040,13 !POKEV +SE,1 sPOKEV+YL, 
0 

140 POKEV+XX,1 :POKEV+XL,255 :POKEV+YL 
, 190 

150 POKEV +XG ,0 
160 X=255s Y=190 
165 POKEV+28,1 

169 REM - 

170 REM SCHERMO DI CODIFICA 

171 REM-:- 

180 print" gn _ 

:REM CBM P 

181 FORI=0TO20 

182 PRINT" 

REM CBM N E CBM H 

183 NEXTISPRINT" - 

-"SREM CBM Y 

184 GOSUB1000 s GOTO309 

309 REM - 

310 REM SPRITE CODIFICATO SULLO SCHE 
RMO 

320 REM CAMBI INPUT 

321 REM - 

330 R=0S C=0 
340 Z =FNA(0) 

342 PC=PEEK <Z)s PD=PEEK <Z +1):PK=Z 

343 IFPC=160THENRV=128 s G0T0345 

344 RV=0 

345 POKEZ,24+RV s POKEZ + 1,24+RV 

346 KN=PEEK<Z +54272)sKM=PEEKCZ +54273 
)sIFKN=0THENKN=1s KM=1 

350 POKEZ +54273,KNsPOKEZ +54274,KM 
360 GETA$s IFA$=”"THEN360 


370 POKEZ +54273,KNs POKEZ +54274,KMs PO 
KEPK,PC 5 POKEPK +1,PD 
380 IFA$="F"THENPRINT”iJgSPERO CHE TU 
ABBIA MESSO IL TUO SPRITE NEI 
DATA!"SEND 

390 IFA$= ”||"ANDC=22THENC=0 s GOTO340 

400 IFA$="M"THENC=C+2 s GOTO340 

410 IFA$= "||“ANDC=0THENC=22 s GOTO340 

420 IFA$=" H”THENC=C-2 s GOTO340 

430 IFA$="M"AIOR=20THENR=0 s GOTO340 

440 IFA$="M"THENR=R+1SGOTO340 

450 IFA$="□"ANDR=0THENR=20 s GOTO340 

460 IFA$="□"THENR=R-1s GOTO340 

470 IFA$=" a" THENR=0 s C=0 s GOTO340 

480 IF A$=" J" THENGOSUB1150 s GOTO340 

490 IFA$="+"THEN580 

500 IFA$="-"THEN730 

510 IFA$="S"THEN1210 

520 IF A$="B"THEN1450 

530 IFA$="C"THEN1400 

540 IFA$="E"THEN900 

570 GOTO340 

574 REM - 

575 REM AGGIUNGE UN PUNTO 

576 REM - 

580 Z =FNA(0) 

590 IFCS=A2THENK1=224 s K2=160 
595 IFCS=A4THENK1=160SK2=224 
600 IFCS=A3THENK1 = 160 s K2=160 
610 POKEZ,K1s POKEZ + 1,K2 s P0KE55296+Z - 
1024,CS:P0KE55296+Z-1023,CS 
620 BYTE =INT(C/8 > +R *3 s G0SUB625 s G0T03 
40 

625 CH=1065+40*R +8*INT <C/8)s TC=0 s BI = 
8 

626 FORL1=CHTOCH+75P=PEEK<L1)SBI=BI- 
1sIFP=160ORP=24THENTC=TC+2tBI 

627 NEXTL1SPOKEBYTE+NO*64,TC:RETURN 

724 REM - 

725 REM CANCELLA UN PUNTO 

726 REM - 

730 Z =FNA < 0) 

740 Z1=PEEK <Z ) 

760 POKEZ,32SP0KEZ+1,32 
770 BYTE =INT < C/8)+R *3 s G0SUB625 s G0T03 
40 

804 REM - 

805 REM SE CI SONO DATA CODIFICA SPR 
ITE 

806 REM - 

808 READA1 ,A2,A3:IFA1=0THENPOKEV+28, 
PEEK < V +28 ) A10255 -21 < 0 ) s G0T0810 

809 POKEV+28,PEEK CV+28)0R2t(0 >s POKEV 
+37,A2 s POKEV+38,A3 

810 READA4 s POKEV+39,A4 
815 L0C=SP*64 

820 FORI=LOCTOLOC+62 
830 READA 5 POKEI,A 
840 NEXTI 
850 GOTO50 

894 REM - 

895 REM INPUT PER ESPANSIONE 

896 REM - 

900 r r t i it -1 wiwwwiwiiiniiuiHiiiiinmiHiii 

WiiiiilPATTI X 0 Y" 



































910 GETA$:IFA$<>"X"ANDA$<> H Y"THEN900 
920 IFA$="X"THEN960 

930 IFPEEK<V+XY>=1THENPOKEV+XY,0:GOT 
0980 

940 POKEV+XY,1 
950 GOTO980 

960 IFPEEK <V+XX) = 1THENP0KEV+XX,0 :GOT 
0980 

970 POKEV+XX,1 

IMMUII 

990 GOTO340 

994 REM - 

995 REM MOSTRA OPZIONI PER IL CONTRO 
LLO 

996 REM - 

1000 PRINT"aSl"SPC<27) "aCONTROLLIl" 
1005 PRINTSPC<26)"SPRITE NO. 0" 

1030 PRINTSPC<26)"aSB^OSTA SPRITE” 
1040 PRINTSPC<26) "SCAMBIA COLORE" 
1050 PRINTSPC<26) "^■SPANDE" 

1060 PR INTSPC <26 ) " Jl+B^GG IUNGE PNT" 
1070 PRINTSPCC26)"a-lCANCELLA PNT" 
1080 PRINTSPC<26)"dBS^SIC DATA" 

1090 PRINTSPCC26)"BOBINE" 

1100 PRINT:PRINTSPC(26)"USA LE FRECCE 

1110 PRINTSPC<26)"PER CAMBIARE" 

1120 PR INTSPC<26)"LA POSIZIONE” 

1130 PRINTSPC<26)"DEL CURSORE.” 

1 140 RETURN 

1144 REM - 

1145 REM CANCELLA IL PRESENTE SPRITE 

1146 REM- 

1150 FORI=0TO6£ : P0KEN0*64+ 1,0! NEXTI 
1160 FORI=0TO20 

1170 FORJ =0T024 
1180 POKE1064+1*40+J,32 
1190 NEXTJ:NEXTI:R=0:C=0 
1200 RETURN 

1204 REM - 

1205 REM MUOVE LO SPRITE PER LO SCHER 
MO 

1206 REM - 

1210 

RSORE MUOVE SPRITE/RETURN PER US 
CIRÉ.” 

1230 GETA$:IFA$=""THEN1230 
1240 IFA$= "||"ANDX<3 19THENX=X+2 
1250 IFA$="||"ANDX>lTHENX=X-2 


1260 IFA$="S"ANDY<£54THENY=Y+2 
1270 IFA$="□"ANDY>lTHENY=Y-2 
1280 POKEV+YL,Y 
1290 POKEV+XG,INT<X/255) 

1300 POKEV +XL ,X- INT<X./£55 ) *255 

1310 IFA$=CHR$<13>THEN1330 

1320 GOTO 1210 

1330 POKEV+XL,255 

1340 POKEV+YL,190 

1350 POKEV+XG,0 

1360 X=255!Y=190 

1370 pr t mt ■ a—ami mmmmmmm 


1390 GOTO340 

1394 REM-- 

1395 REM CAMBIA COLORE ALLO SPRITE 

1396 REM - 

1400 PR TNT 11 MWWBMlBIMIMWliMMB fl MWMIIlMMIfllMMMir 

AI LA TUA SCELTA <1, 2 0 3)." 

1402 GETCG$:IFCG$=""THEN1402 

1403 IFCG$="1"THENCS=A£:GOTO 1420 

1404 IFCG$="2"THENCS=A3: GOTO 1420 

1405 IFCG$="3"THENCS=A4:GOTO 1420 

1406 GOTO 1402 

1420 POKEV+36+VAL<CG$),CS 

a"; 

1440 GOTO340 

1444 REM - 

1445 REM CREAZIONE ISTRUZIONI DATA PE 
R 

1446 REM LO SPRITE PRESENTE 

1447 REM - 

1450 PP=PP+11 SPRINT"Jffl®B";PP+30000;"D 
ata";sp;", i,";A2;",";A3;■,";A4; " 

1460 FORI=0TO8 

1470 PRINTPP+I+30001"DATA"; 

1480 FORJ=0TO6 

1490 BB=PEEK <NO#64 +1*7+J) 

1500 BB$=RIGHT$ < STR$ < BB>,LEN <STR$ < BB) 
)-l) 

1510 printbb*;", 

1520 NEXTJ 
1530 PR INT "Il " 

1540 NEXTI 

1550 PRINTPP+ 10+30000;"DATA -1":NO=NO 
+ 1 :SP=SP + 1 
1560 PRINT"G0T045a" 

1570 POKE198,12 

1580 FORI=0TO11 !P0KE631 + I,13:NEXTI 


assegnarlo ad un nuovo blocco conte¬ 
nente i dati del successivo disegno. Si 
continuerà in tal modo ad utilizzare sem¬ 
pre il medesimo sprite, il quale cambierà 
immediatamente fisionomia per mezzo di 
una semplice istruzione POKE. Inutile 
sottolineare come la rapidità di esecuzio¬ 
ne sia alla base di qualsiasi forma di grafi¬ 
ca animata; pensate soltanto per un istan¬ 
te ai rallentamenti provocati dall’eventua¬ 
le riassegnamento di ben 63 bytes, con 



evidenti disagi provocati tpnto alla struttu¬ 
ra del programma quanto al risultato este¬ 
tico finale. 

SPRITE EDITOR MULTICOLORE 

Questo listato conserva lo stesso for¬ 
mato del precedente sprite editor mono¬ 
colore, comprendendo tuttavia sostan¬ 
ziali modifiche relative agli sprites multi¬ 
colori. 

Le linee sulle quali occorre puntare la 


maggior attenzione sono quelle compre¬ 
se fra 625 e 627, nelle quali vengono cal¬ 
colati i dati dei vari sprites in assemblag¬ 
gio. 

Note sul programma 
Linea 45: stabilisce i parametri del video¬ 
chip e la zona dove andare a memorizza¬ 
re gli sprites. 

Linee 50-60: altri dati da leggere? 

Linea 90: funzione che gestisce il cursore 
sullo schermo. 



































UTILITY 


1590 END 

3000 PRI NT "DISEGNATORE DI SPRITE MUL 
TICOLOR I . " 

3002 PRINT"|MPUOI USARE 4 COLORI NEL 
SEGUENTE MODO :" 

3004 PRINT"SM5PRITE MULTICOLORE 1" 

3006 PR INASPRITE MULTICOLORE 2" 

3008 PRINT“COLORE SPRITE ORDINARIO” 

3010 PRINT"COLORE DELLO SCHERMO" 

3012 PRI NT "««QUESTO LIMITA LA NOSTRA 
RISOLUZIONE" 

3013 PRINT"DEGLI SPRITES DA 24 A 12 C 
ARATTERI.■ 

3014 PRI NT" «TUTTAVIA, CON UN PO ’ D'I 
MMAGINAZIONE," 

3016 PRINT"SI OTTENGONO RISULTATI SOR 
PRENDENTI. «" 

3018 GOSUB4000 

3019 POKE53280,1 :P0KE53281,1 

3020 PRINT"LHSCEGLI I COLORI FRA I 16 

DISPONIBILI:«" 

3023 PRINTTAB(30)CHR$<18)"1 Si - 
0 " 

3024 PRINTTAB(30)CHR$<18)"3 Si - 
1 " 

3025 PRINTTAB< 30 )CHR$(18)"3 WU ~ 

2 " 

3026 PRINTTAB(30 )CHR$(18 ) "k Si - 

3" 

3027 PRINTTAB(30 )CHR$(18)"# Si - 

4" 

3028 PR INTTAB (30 )CHR$( 18 ) "li Si - 
5" 

3029 PRINTTAB(30)CHR$(18)"3 SI " 

6" 

3030 PRINTTAB(30)CHR$(18)"fl Si - 
7" 

3031 PRINTTAB(30)CHR$( 18) "□ Si - 
8 " 

3032 PRINTTAB(30)CHR$(18) "K Si - 

9" 

3033 PRINTTAB(30)CHR$(18 ) "B Si " 1 
0 » 

3034 PRINTTAB(30)CHR$<18)"H Si - 1 
1 " 

3035 PRINTTAB<30)CHR$(18)"£ Si - 1 
2 ” 

3036 PR INTTAB ( 30 )CHR$ ( 18 ) "Il Si - 1 
3" 

3037 PRINTTAB(30)CHR$<18)"□ Si - 1 
4" 

3038 PR INTTAB ( 30 )CHR$( 18 ) "5! Si - 1 
5" 

3040 INPUT"«SPR ITE MULTICOLORE ZERO" 


;A2:IFA2<0ORA2>15THENPRINT"CD":G 
OTO3040 

3042 INPUT"3SPRITE MULTICOLORE UNO"; A 
3: IFA3<0ORA3 > 15THENPRINT "CD" : GOT 
03042 

3044 INPUT"3C0L0RE SPRITE ORDINARIO",* 
A4:IFA4 < 0ORA4 >15THENPRINT "CE" :G0 
TO3044 

3045 CS=A4 

3046 GO.SUB4000 

3048 POKEV+37,A2:POKEV+38,A3:POKEV+39 
, A4 

3049 POKE53280,0:P0KE53281,0 

3050 PR INT" k JB" : PR INT-a^lUOV I IL CURSOR 
E PER LO SCHERMO CON I" 

3051 PRINT"TASTI CURSORE. PER LO STES 
SO SPRITE USA" 

3052 PRINT"L'OPZIONE S DEL MENU'." 

3053 PRINT"«QUANDO SEI SODDISFATTO ME 
TTI I CODICI" 

3054 PRINT"NEI DATA CON L'OPZIONE B. 
SARANNO ALLE" 

3055 PRINT"LINEE 30011-30020." 

3056 PRINT"SUPREMI HOME PER RIPORTARE 

IL CURSORE" 

3057 PRINT"IN ALTO A SINISTRA E CLR/H 
OME PER CAN- CELLARE LO SPRITE 
COMPLETAMENTE." 

3058 PRINT"«QUANDO CAMBI COLORE PREMI 

1 PER AVERE ILMULTICOLORE 0, 2 
PER IL MULTI CO",* 

3059 PRINT"LORE 1, E3 PER IL COLORE D 
ELLO SPRITE ORDINARIO." 

3065 GOSUB4000 

3070 RETURN 

4000 PR INT "«[PREMI 'SPAZIO' PER CONTI 
NUARE" 

4002 GETSP$:IFSP$<>" "THEN4002 

4004 RETURN 

29997 REM - 

29998 REM MEMORIZZAZIONE SPRITE DATA 

29999 REM - 

30011 DATA 13 ,1, 3 , 2 , 4 

30012 DATA0,2,128,0,2,128,0 

30013 DATA2,128,0,2,128,0,2 

30014 DATA128,10,170,128,8,0,0 

30015 DATA8,0,0,12,0,0,12 

30016 DATA68,0,29,1,0,79,16 

30017 DATA64,31,192,16,7,255,244 

30018 DATAI,255,253,0,127,244,0 

30019 DATA31,208,0,7,64,0,1 

30020 DATA0,0,0,0,0,0,0 

30021 DATA -1 


Linee 110-165: stabiliscono i vari para¬ 
metri degli sprites. 

Linee 180-183: gestisce la visualizzazio¬ 
ne sullo schermo. 

Linea 184: stampa le istruzioni sullo 
schermo. 

Linee 330-370: crea un doppio cursore 
sullo schermo. 

Linee 380-570: controlla i dati inseriti. 
Linee 580-620: somma dei punti, creazio¬ 
ne schermo e sprite. 


Linee 625-627: controlla lo stato dello 
sprite prima di visualizzarlo. 

Linee 730-770: punti rimossi, creazione 
schermo e sprite. 

Linee 808-850: legge i dati dello sprite. 
Linee 900-990: espande o rimpicciolisce 
lo sprite tanto orizzontalmente quanto 
verticalmente. 

Linee 1000-1140: stampa le opzioni sullo 
schermo. 

Linee 1150-1200: rimuove lo sprite, puli¬ 


sce lo schermo ed azzera i precedenti 
dati. 

Linee 1210-1390: lo sprite si muove lungo 
un percorso stabilito. 

Linee 1400-1440: cambia i colori. 

Linee 1450-1590: converte i dati in istru¬ 
zioni DATA. 

Linee 3000-4004: benvenuti allo spetta¬ 
colo. 

Linee 30011 -30021: DATA per il versatore 
di birra. 














MEMORIZZAZIONE 
DEL VIDEO 

di Alessandro Baratimi 

Il programma permette di memorizza¬ 
re sul nastro qualsiasi videata e in 
seguito di ricaricarla in memoria: ven¬ 
gono memorizzati tutti i caratteri, i co¬ 
lori ed i registri. 

Il problema principale della memoriz¬ 
zazione di schermi è che le istruzioni 
per il registratore modificano lo 
schermo presente sul video; quindi è 
necessario trasferire la videata che ci 
interessa in un’area di memoria che 
non viene alterata. 

Questa operazione viene fatta da una 
routine in linguaggio macchina, men- 
tra un’altra routine memorizza poi 
quest’area sul registratore; non ven¬ 
gono così memorizzati insieme con la 
videata i messaggi normalmente 
mandati quando si fà un’operazione 
di caricamento o memorizzazione. 
Per il caricamento i dati riguardanti la 
videata vengono caricati in un’area 
diversa dalla memoria del video e da 
qui trasferiti all’area originale. Inoltre, 


per far sì che non compaia il messag¬ 
gio “READY”, il programma cicla su 
un’istruzione finché non viene pre¬ 
muto un tasto qualsiasi. 

Il programma è diviso in due parti: la 
prima parte (listato 1) carica in memo¬ 
ria il codice macchina delle routine e 
quando viene dato il RUN si autocan- 
cella. La seconda parte (listato 2) può 
essere aggiunta a qualsiasi program¬ 
ma, per memorizzare le videate che 
quest’ultimo crea. Naturalmente, per 
funzionare, la seconda parte ha biso¬ 
gno che in memoria sia presente il 
codice macchina creato dalla prima 
parte. Se modifichiamo la linea 50060, 
sostituendo l’istruzione STOP con un 
RETURN, possiamo memorizzare più 
videate semplicemente facendo: GO- 
SUB 50000. 

Quando il programma gira non appa¬ 
re alcun messaggio; questo perché il 
programma rimane in attesa di una S 
per la memorizzazione o di una L per il 
caricamento di videate già memoriz¬ 
zate. (Se non appaiono segnali di 
nessun genere è per non rovinare le 
videate che si vogliono memorizzare). 
Se premete S o L appaiono le solite 


istruzioni per il registratore. 

Nel momento in cui viene premuta la 
lettera S il video e la memoria colori 
vengono trasferiti in un’altra zona del¬ 
la memoria; da qui verranno trasferiti 
al registratore quando si premono i 
tasti PLAY e RECORD. La mappa del¬ 
la memoria è mostrata in figura 1. 
Quando si carica un video dal nastro, 
il programma opera nella maniera in¬ 
versa. Dopo queste operazioni, se si 
vuole continuare, basta premere un 
tasto qualsiasi ed appare il messag¬ 
gio “READY”, che, nel caso abbiate 
fatto un caricamento di un video, ve lo 
rovina. Non preoccupatevi! Per riave¬ 
re la videata intatta basterà fare: SYS 
49395. 

Se si devono memorizzare degli spri- 
te, oltre a delle videate, è necessario 
memorizzare l’area di memoria dove 
risiedono i dati relativi ad essi. L’ope¬ 
razione di memorizzazione di sprite 
va fatta prima di memorizzare il video. 
La routine che effettua questa opera¬ 
zione è la “Save routine” e la si abilita 
con un RUN 50100. Essa richiede il 
nome del file, l’indirizzo di partenza 
dell’area di memoria e l’ultima loca- 



DEC HEX 

49152 C000 

49153 C001 

49154 C002 

49155 C003 

49156 C004 

f I 

I I 


DESCRIZIONE 

Loc. Partenza byte basso 
" " " alto 

UItima loc. byte basso 
” " " alto 


> Routine Save 


I 

I 



49196 

C02C 

y 


49197 

C02D 

y 


I 

I 

y 


I 

I 

) 

Routine Load 

I 

I 

y 


49216 

C040 

> 


49217 

C041 

y 


I 

I 

y 


I 

I 

y 

Non usati 

I 

I 

y 


49229 

C04O 

y 


49230 

C04E 


Lun 9. no nì e f'il 

49231 

C04F 

y 


I 

I 

y 


I 

I 

y 

No ni e file 

I 

I 

y 


49246 

C05E 

) 


49248 

C060 



, I 

I 

y 


I 

I 

y 

Routine Save s 

I 

I 

y 


49337 

C0EB 

y 


49392 

C0F0 

y 


I 

I 

y 


I 

I 

y 

Routine Load s> 

I 

I 

y 


49512 

CI 68 

y 














LISTATI 


zione di memoria dell’area da memo¬ 
rizzare. Per caricare in memoria dati 
già memorizzati usate la “Load routi¬ 
ne” (queste routine possono essere 
utilizzate per trasferire qualsiasi zona 
di memoria, non solo i dati per gli spri- 
te; possono avere quindi un utilizzo in 


altri programmi). 

Alcuni problemi possono nascere 
quando il programma che crea il vi¬ 
deo occupa le locazioni da 49152 a 
49512, oppure da 50944 a 53019, che 
sono usate dalle routine. In questo 
caso è necessario rilocare il codice 


macchina delle routine, non dimenti¬ 
cando di rilocare i byte da 49152 a 
49155, che sono usati come puntatori 
a specifiche zone di memoria. La figu¬ 
ra 2 mostra la mappa della memoria 
del codice macchina delle routine ed i 
registri usati. 


1 rem i*#****^*##^^*#*^*#**^#***^ 

2 rem # * 

3 rem $ codice macchina * 

4 rem # * 


5 rem *****^**^*****»#**i4<**^**^^ 


10 

restore : Pr int "SS" : c*0 

20 

for i*49156 

to 49216 : read a : Po 


kei,a : t*t+a : 

next 

30 

if t<>7419 t 

hen Print"dati sba 


aliati alle 

linee 110 - 140"=s 


top 


40 

t = 0 


50 

for i*49248 

to 49387 : read a : P 


okei,a : t*t+a 

: next 

60 

if tOl9316 

then Print"dati sb 


e.9liati alle 

linee 140 - 220": 


stop 


70 

t=0 


80 

for i*49392 

to 49512 : read a : P 


okei,a ; t*t+a 

: next 

90 

if t<>17317 

then Print"dati sb 


a9liati alle 

linee 228 - 280" : 


stop 


100 

Print"codice 

macchina caricato 


in memoria" 

: ne i,.i 

110 

data 162,1,1 

69,1,160,3,32,186, 


255 , 1 , f 8, 1 

92,162,79,160,192, 


32,189 


120 

data 255,173 

,0,192,133,20,173, 


1,192,133,21 

, 174,2,192 , 172 , 3 , 1 


92,169 


130 

data 20,32,2 

16,255,96,162,1,16 


9,1,160,1 , 32 

, 186,255,169,0,32, 


189 


140 

data 255,169 

,0,32,213,255,96,1 


65,243,141,0 

, 199,165,244,133,4 


,173,134 


150 

data 2,141,2 

,199,173,135,2,141 


,3,199,173,1 

36,2,141,4,199,162 


,0 


160 

data 189,0,4 

,157,5,199,232,208 


, 247,189,0,5 

,157,5,200,232,208 


,247 


170 

data 189,0,6 

,157,5,201,232,208 


,247,189,0,7 

,157,5,202,232,208 


,247 


180 

data 189,0,208,157,5,203,232,2 


24,46,208,24! 

5,162,0,189,0,216, 


157,51 


190 

data 203,232 

,208,247,189,0,217 


,157,51,204,232,208,247,189,0, 
218,157,51 


200 data 205,232,208,247,189,0,219 
,157,51,206,232,224,232,208,24 
5,169,0,141 

210 data 0,192,169,199,141,1,192,1 
69,27,141,2,192,169,4,141,3,19 
2,32 

220 data 4,192,96,32,45,192,173,0, 
199,133,243,173,1,199,133,244, 
173,2 

230 data 199,141,134,2,173,3,199,1 
41,135,2,173,4,199,141,136,2,1 
62,0 

240 data 189,5,199,157,0,4,232,208 
,247,189,5,200,157,0,5,232,208 

,247 

250 data 189,5,201,157,0,6,232,208 
,247,189,5,202,157,0,7,232,208 
,247 

260 data 189,5,203,157,0,208,232,2 
24,46,208,245,162,0,189,51,203 
,157,0 

270 data 216,232,208,247,189,51,20 
4,157,0,217,232,208,247,189,51 
,205,157,0 

280 data 218,232,208,247,189,51,20 
6,157,0,219,232,224,232,208,24 
5,96 


50080 rem MMMmmMMWMMM*#** 


50001 rem * * 

50002 rem * save e load # 

50003 rem # del video * 

50004 rem * * 


50005 rem 

50010 9et a$: if a$0"s" and a$0" 1" 
then 50010 

50020 if a**" 1" then 50040 
50030 sas 49248:stop 
50040 sys 49392 

50050 9et a$= if a$*"" then 50360 
50060 stoP 

50100 rem **##**********##4!***##***# 

50101 rem * routine save * 

50102 rem **#*31<**##**#^******#**H<^** 
50110 P r i nt " SSHIOToemor i zzaz i oneflS" : n$ 

—. :i il 

58120 input "nome file lil";n$ 

50130 Print : l=len(n$) : if 1>16 then P 
r i n t " Shn o m e t r o P P o 1 u. n 9 o 3 " : s t o P 
50143 for i=43231 to 49246 : Poke i,32 
: next 
















50150 Poke 49230, l : if 1*0 then 58170 
50160 for i = l to 1 : Poke 49230+i,asc< 
m i d$ ri*, i, 1 > > : next 
50170 Print 

50188 inPu.t "indirizzo di Partenza 
■■rjp sprint 

50190 Poke 49153,int(P/256 >:P oke 491 
52, P -- i nt < P /256 > *256 
50200 input "ultima locazione BH"Ju 
50210 if P>u then Prinf'SCTBiridirizzi 
sba9liatiS" : stop 
50220 Poke 49155, int<u.7256> 


58230 P oke 49154,u-int <u/256>+256 
50240 sys49156 
50250 return 

50300 rem +++++*+***+++++*+#++++*+++ 

50301 rem + routine load + 

50302 rem *+*++++++++++++++*++++*+++ 
50310 P r i nt " isùfelfiBcar i camentoSflElS" 

50320 sas49197 

50330 Print tab< 15> '"Sraricamento ef'f 
et tua toSI" 

50340 for i=0 to 1500 : next 
50359 return 


CONTO CORRENTE 

di Edgardo Di Nicola-Carena 
ed Andrea Ruffini 

Questo programma è nato essen¬ 
zialmente dallo spunto dato da un 
esercizio di ragioneria: calcolo degli 
interessi bancari. In realtà si tratta di 
un programma adatto ad essere usato 
praticamente e facilmente adattabile 
alle proprie esigenze. 

Dopo la fine del caricamento, viene 
posta una prima domanda: “vuoi cari¬ 
care dati precedenti?”. La prima volta 
che si usa un programma o dopo la 
chiusura dell’anno precedente, biso¬ 
gna rispondere “N” per passare diret¬ 
tamente alla visualizzazione di tutti gli 
eventi. In questo caso, inizialmente, la 
tabella risulta logicamente vuota. Per 
inserire degli eventi, cioè segnalare 
dei prelievi o dei versamenti, bisogna 
premere il tasto Function 5 (“aggiun¬ 
ta”). In tal caso vengono richieste cin¬ 
que immissioni: la data, che dev’esse¬ 
re una stringa di cinque lettere, di cui 
le prime due contengono il giorno e le 
ultime due il mese; il codice, di due 
lettere, che il programma memorizza 
soltanto, senza utilizzarlo nell’elabo¬ 
razione dei dati; la somma, che de¬ 
v’essere negativa nel caso di un pre¬ 
lievo e positiva nel caso di un versa¬ 


mento; la valuta,che richiede di esse¬ 
re introdotta come la data; infine, la 
domanda “dell’anno in corso?” si rife¬ 
risce alla valuta e domanda se la valu¬ 
ta è riferita allo stesso anno dei versa¬ 
menti od a quello dopo. 

Per tutte queste domande esiste un 
controllo per verificare l’esattezza 
dell’introduzione. Dopo che si è ri¬ 
sposto a tutte le domande, si possono 
ancora modificare i dati introdotti, 
premendo la lettera a sinistra della 
domanda interessata. Si può anche 
abbandonare del tutto l’operazione 
scartando i dati introdotti. Infine, si 
possono introdurre i dati nella lista. 

Quando sono stati introdotti molti 
dati, lo schermo non può contenerli 
tutti, così è possibile usare “FI” ed 
"F3” per muoversi rispettivamente in 
avanti ed indietro. 

L’opzione “ricerca” (tasto F7) per¬ 
mette di ricercare un qualsiasi evento, 
in base alla sua data. Se è possibile il 
computer visualizza tutti gli eventi che 
hanno quella data prima di tutti gli altri 
sullo schermo. Se ciò non è possibile, 
gli eventi compaiono comunque sullo 
schermo e vengono trovati immedia¬ 
tamente, anche perché devono esse¬ 
re stati introdotti in ordine di data. 

Alla fine dell’anno si potranno cal¬ 
colare gli interessi usando l’opzione 
“interessi” (F4). Gli interessi vengono 


poi aggiunti automaticamente alla li¬ 
sta, con il codice CI. Per conoscere gli 
interessi che si vanno sviluppando in 
un qualsiasi momento durante l’anno, 
bisogna prima assicurarsi di avere al¬ 
meno una copia dei dati in memoria e 
poi estinguere il conto. Gli interessi, 
comunque, non sono riconosciuti 
dalla banca fino al 31 dicembre. 

Per salvare i dati presenti in memo¬ 
ria e ricaricarli la volta successiva in 
cui sono state fatte operazioni in ban¬ 
ca, bisogna premere il tasto F2. In ca¬ 
so di errore, per ripetere l’operazione, 
dare il comando GOTO 5500. 
100-210: inizializzazione 
300-350: caricamento dati 
500-690: stampa la tabella e l’elenco 
delle opzioni disponibili 
700-760: attende che venga premuto 
un tasto e si comporta in conseguen¬ 
za 

1000-1040: va avanti nella lista 
2000-2030: va indietro nella lista 
3000-3900: introduce un nuovo even¬ 
to 

4000-4530: ricerca una data nella li¬ 
sta 

5000-5530: memorizza i dati che ci 
sono in memoria 

6000-7120: calcola e stampa gli inte¬ 
ressi 

8000-8070: routine di controllo della 
data. 


0 rem 

1 rem Programma di co rito cor r e ri t 
e 

2 rem di ed9ardo di nicola-caren 
a 

3 rem e 

4 rem andrea ruffini 

5 rem 


i 0 0 r e m i ri i z i a 1 i z z a. z i o ri e 
110 dim d*<500>.. v*500>, e<500, \ <5 
00 >, c* < 500 > , m < 12 >.. <500 >, j ( 50 

0 > 

i 15 r e s t o r e : f o r n = 11 o 12 : r e a d m '• n ) 

: next 

12 0 n e v e ri ti- 8 : P u. ri t e v ~ 1 
130 data31,29,31,30,31,30,31,31,38 


















LISTATI 


,31,30,31 

160 if da#-"s" thè ti m<2>®29 
200 iriPut"WBEI vuoi caricare dat 
i p r e c e d e n t i 1 ' d a # 

210 if da#-"ri"then 9oto500 
300 rem car i c a merito dati 
3 10 o P e ri 1,1,0, " c / c. d a ti" 

320 ri=l 

330 i ri P u t # 1, d $ < n ) : i ri P u t # 1, c # < ri > : 
i riP ut# 1, s < n > : i riP ut# 1, v# < n ) : 
i tìP ut# 1,1. <n> 

340 if st-0 thè ri n~n+l : 9oto330 
350 ri e v e n t i ~ri : dose 1 
500 r e m v i s u. a 1 i z z a z i o n e e- v e n t i 
510 P r i ri t " SI i-r 1 —i-t— 


520 Pririt" Idata ico Is I somme Iva 
1. Is I saldi 1"; 

530 Pririt" !-f 1—I-1 

--j " ; 

535 r e m s c r i 11 u r a e v e n t. i 
540 for even*Puntev to Puntev+14 
545 i f e v e n > n e v e ri t i t Pi e ri e v e ri ~ P u ri t e 
v+14 : 9oto630 

550 P r i nt " I "1 ef t# < d# < even >, 2 )" / " 
r i 9ht# < d# < even >, 2 ') ; " I "c# < eve 
n>;" l"; 

560 i f s < e v e n ) > 01 h e ri P r i n t " + "; 

565 i f s <even>*0thenP rint " "; 

570 .1 f s < even > <0ther.P r i nt " - " ; 

580 P rintsPc <10~1en < str# < s < even>>> 

> abs < s < even > >" flUlfflllliiiifl I Hi!! 

ninffli»Miiii i " ; 

585 P i- i nt 1 ef t# < v# < even >, 2 > " / " j r i 9 
ht# < v# < e veri >, 2 > ; " I" 

600 i f 1 ( e v e n > > 01 h e ri P r i n t " + " ; 

605 if Keven>-3 then Print" " 

610 i f 1 < e v e ri > < 01 h e n P r i n t ; 

620 P r i ri t s P c < 10 -1 e n < s t r # < 1 <e v e ri > > ) 

> ; abs < 1 <even> > ; "lillillilliii mii 
URUftiftiir ; 

630 nexteven 

640 Pririt" 1 - J - L ~~ J - 1 — 

_i_i_i " 

650 rem scrittura menu 

660 P r i nt " SSstfólt-ilKslRIi - 


f3 
f 7 
f 4 


•I "; 


670 Pririt" I fi «> avanti 
-> indietro I".; 

680 Print" I f'5 => a99iu.nta 
«> ricerca I".: 

685 Print" I f'2 *> re9istraz. 

as> interessi I".: 

690 P r i n t ' ' J- 


4-::".; 


700 r e m a11. e n d e P r e s s i o n e t a s t o 
710 9et a# 


720 

730 

740 

750 

752 

754 

760 

1000 

1010 

1020 

1030 

1040 

2000 

2010 

2020 

2030 

3000 

3005 

3007 

3010 

3020 

3030 

3040 

3050 

3060 

3067 

3068 

3070 

3080 

3090 

3100 

3110 

3120 

3130 

3135 

3140 
3150 
3160 
3170 
3175 
3180 


3190 


3200 

3570 


if a#-"S"then1000 
if a#-"artheri2000 
if a#*"W ,, then3000 
if a#“" Sl"then4000 
if a#«"IH"theri 9oto 5000 
if a#~"M"then 9oto 6000 
9oto710 

r e m ■?. v a n t i n e 11 a 1 i s t a 

P u n t e v=P u n t e v +10 

i f P u n t e v > n e v e n t i -141 h e n P u n t e v 

« ne ve ri t i -14 

i f P untev< 1 theriP untev» 1 

9oto500 

r e m i n d i e t r o ri e 11 3 . 1 i s t a 
P u n t e v ~ F' u n t e v ~ 10 
i f P u n t e < 11 h e n p u n t e v ~ 1 
9oto500 

rem a99iunta di un evento 
ifneventi*500then9oto500 
ne veri t i - nevent i +1 : P u~ nevent .i. ~ 1 
4 : i f P u < 11 h e ri P u “ 1 
P r i n 11 a b ( -4 ) "i® i n t r o d u z i o n 

e di un nuovo evento" 

Print "SI- 


p r i ri t 1 ' a > d a t a <.99 / ro m ) " 


P r i nt " 51511 
re) " 

P r i nt " SUI 
P r i nt " STS1 
P r i nt " S1SI 
o <s/n>" 
P r i nt " 21 


b> codice <due lette 

c> somma" 

d > v a 1 u t a <99/mm> ' ' 
e > d e 11 •' 3. n n o i ri c o r s 


9osub3570 : 9osub3595 
9osub37 00 :9osub3750 
9osub3800 

Print "SUI Premi a~e Per corr¬ 
eggere un dato" 

Print"51 Premi r Per rinunciare 
a 11 oP er az i ori e " 

Print "SI oppure ''return'' P 

er tabe 1 lario" 

9et a# 

v# < neventi>-1eft# <dv#,2 >+dt#+r 
i9ht# < dv#,2 > 

if . 3 .#=" a "then 9osub 3570 
if a#="b"ther. 9osub3595 
i f a # = " c " t h e n 9 o s u b 3 7 0 0 
if a#“"d 11 1hen9osub3750 
if a#~"e"then 9osub3800 
i f a # ~ " r " t hi e ri n e v e ri t i = ri e v e n t i ~ 
1 :9oto500 

i f a # * c h r # < 13 > t h e n 1 < ri e v <==• ri t i > - 
1 < nevent i ~ 1 > +s < nevent i. > : 9oto50 
0 

9oto 3130 

rem introduzione data 


13 


























3580 i tiP ut " 
da# 

3585 if Ieri < da# > 0-5 then 3580 
3590 9osub8000 : i f f theri 3580 
3592 d# ( nevent i > * \ ef t# < da# , 2 > +r i 9ht 
$(da$;2> : return 
3595 rem introduzione codice 

3600 i nP ut " iiWiSiiiPiilfiiiPliiiPiii 

tiftftimiilir cod# 

3601 i f 1. e n < c o d # ) < > 21 h e ri 9 o t o3600 
3603 c $ < n e v e n t i > « c o d # 

3605 return 

3700 rem introdu zion e somm a 
3710 inPut 

s < nevent 1 > 

3720 if s<neventi><>int<s< neventi>> 
orabs<s<neventi>>>=1e9ther3700 
3730 return 

3750 r em int roduzione v a1uta 
3760 input 11 

mmiiiRiiillliippR" ; da# 

3765 i f 1 er. < da# ) O5then3760 
3770 9osub80010 : i f f ther. 3760 
3780 dv#~da$ 

3790 return 

3800 rem introduzione anno valuta 
3805 i nP ut " tstete Ks Ibi li?I» i Hi Su m i » 

|il|tllii»ÌMK|hRii»»p||ilÌÌ»l!^i!»W»Ìll|ii!' > ; da# 
3810 if da#~"s" then dt#»"a" : return 
3820 if da#""n" then dt#="b" : return 
3830 9oto3805 
3900 return 

4000 rem ricerca di una data 
4010 Print"SS1 ricerca di u 

•n evento" 

4020 Print "SI- 


4030 Print"SI data de 11 / evento <99/ 
mm) " 

4040 input " 

da# 

4041 if len <da#K>5then 9oto4040 

4042 9osub 8000•'if f then 9oto 4049 
4948 r i # “ 1 e f t # < d a #, 2 > + r i 9 h t # < d a #, 2 > 
4190 rem ricerca nella lista 

4110 n=neventi 

4120 i f d # (. n > « r i # t h e n n •■= n -1 •* 9 o t o 
4159 

4130 n~n~l:if n«0 then 9oto 4599 
4140 9oto4120 

4150 if d#<n> « ri# then n=n~l : 9oto 
4150 
4169 ri=n+l 

4499 P u n t e v ~ n : if P untev> neventi-141 
h e ri P u ri t e v « n e v enti-14 
4405 if Puntev<lthen Puntev»! 

4410 9oto500 


4500 print"anana n o ri e s i s t o n o e v e n t. 
i s v o Iti ri e 11 a d a t a ' ' 

4519 Print"51 che hai ìnd 

icato!" 

4520 for ri 1 to 2800 : ri ex t 
4530 9oto 5001 

5900 rem re9istrazione dati su cass¬ 
etta 

5010 Print "MSI re9istrazio 

ne dati" 

5020 Print "Sì- 

» ■ .. - i ì 

5030 P r i ri t " 5BI P r e P a r a i 1 r e 9 i s t r a 

tore Per la" 

5040 p r i n t " SI r e 9 i s t r a z 

ione" 

5045 Print "a " 

5050 rem re9istruzione dati 
5060 oP er. 1,1,1, " c/c. dat i " 

5070 for n=l to neventi 
5980i P r i n t # 1, d # < n > : p r i n t # 1, c # < n > : 
P r i nt# 1, s < n > : p r i nt# 1, v# < ri > : P 
rint# 1,1<n> 

5990 next ; dose 1 

5190 inPut"S¥!i vuoi la ver 

ifica"; da# 

5110 if da#ss"n"then 9oto 599 

5129 oP er, 1, 1,0, " c/c. dat i " 

5130 rissi 

5140 i n P u t # 1, d a # : i f d a # < > d # < ri > t h e n 
goto 55010 

5150 i n P u t # 1., d a # : i f d a. # < > c # ( ri > t- h e n 
goto 5509 

5168 i nP ut# 1, dat : i f datOs ( ri > then 9 
oto 5590 

51.7 9 i n P u t # 1, d s. # : i f d a $ < > v # < n ) t h e n 9 o 
to5509 

5189 i. n P u t # 1, d a t •' i f d a t- < > 1 < n > t h e ri 9 
oto5509 

5190 i f s t s= 01 h !=■ ri n=n +1 : 9 o t o 514 9 
5290 dose 1 

5219 9oto 590 
5590 rem errore ! 

5505 dose 1 

5510 Print"IBI si e" verificato 
un errore." 

5529 Print"a ripeti 1 y oPe 

razione" 

5525 f o r n = 11 o39019 : ri e x t 
5539 9oto5000 

6000 rem calcolo interessi 
6010 Print "m calcolo in 

teressi" 

6020 Print "SI- 

- ... . . . . . .—. Il 

6030 Print"STSTISI attendi 4u.al.che is 
t a nte, Per favore" 


























LISTATI 


6040 rem trasferimento matrici 
6050 for n= 1 to rie veri t i 
6060 w $ < n > = v $ ( ri > : ..i < n > « s < ri ) 

6070 next 

6075 rem ri ordì ri a me rito 
6080 for n2«neventi to 2 steP -1 
6090 for n= i to ri2~i 
6100 9 io® v a 1. < 1. e f t $ < w $ < n >.. 2 > ) : m e s e * v 
a l < r i 9ht$ < w$ < n > .• 2 > > 

6110 92®va 1 < 1 ef t$ < w$ < n+1 >, 2 > > : m2®va 
1. < r i 9ht$ < t,.i$ ( n+1 > , 2 > > 

6115 if mid$<w*<n> ,3,1 >>mid$Cw$<n+1 
>,3,l>then 6200 

6117 i f mid$< w$ < ri >, 3, 1 > <m i d$ C w$ < n+1 
> , 3, 1 > theri 6300 
6120 if mese>m2 then 6200 
6130 if mese<m2 theri 6300 
6140 if 9io>92 then 6200 
6150 9oto 6300 

6200 d a $® i,j $ < n > : w $ < n > ® w $ < n+1 > ; i,.i $ < n +1 
}=da$ 

6210 dat® ,i < r, > : ,i < r, > ® j < n+1 > : j < r.+1 ) ®da 
t 

6300 next : next ri2 

6310 rem stampa della tabella 

6320 Print"» i- t— i-r— 


6330 P rint" ! va1, i s I somme 199 

Is ! n/100 !" 

6340 Print" !-1—h-H- 

4-H-(" 

6350 som=0 : snum®0 : for n®l to nevent 
i-1 

6400 9io =va!<left $ < w$<n),2 >) : mese® 
va 1 (r i9ht$< i,.i$ ( n> , 2> > 

6410 92® v al<1eft$<w$ < n+1>,2 >) : m2®va 
l < r i 9ht$ < w$ < n+1 > , 2 > > 

6420 99®0 
6430 mm=mese 

6435 ifmm®m2then 9oto6450 
6440 99=99+m<mm> : mm*mm+l : if mm®13 t 
hen mm=1 
6445 9oto6435 
6450 99=99+92-9io 
6455 som® s o m + J <. n > 

6460 9osu.b 7000 
6570 n ex tri 

6580 9 i o=v a l <1 e f t $ <. w $ < n > , 2 > ) : m e s e ® v 
a l <. r i 9ht$ < i,.i$ < n >, 2 > > 

6590 m2®12 : 92=31 
6600 99®0 
6610 rum®mese 
6615 if mm=m2ther. 6630 
6620 99®99+m<!mm> : mm®mm+l : if mm®13 t 
hen mm=l 
6625 9oto6615 
6630 99=99+92-9io 


6635 if mid$(w$<ne>,3,1> = "b" then 9 
9=99-366 

6645 som=som+ J < nevent i ) 

6650 9osu.b 7000 

6670 Print" 1 - 1 — 1 - 1 - 

H—I-4" 

6680 Printtab<24> " I" j 
6690 i f snum<0thenP r i nt " - " ; 

6700 if snu.m=0thenPrint" "J 
6718 if snu.m>0then Print"+"; 

6720 Print" ! ";sPcC1l-len<str$<int<a 
bs < snu.m) } > > > int<abs < snum> >; "Il 
I" 

6730 P r i nttab < 24 ) ; " 1 — 1 - 1 " 

6735 Print tabe: 25); "-" 

6740 i nP ut " STESI tasso d' i nteresse " ; 

r 

6745 ci = int< r#snum/360) 

6750 neventi«neventi+1 : d$<neventi)® 
"31a12" : c$ < neventi>®"ci" : s <nev 
enti)®ci 

6760 v$<neventi> = "31a12" : l<neventi> 
= 1 < nevent i -1 > +c i. 

6765 P u®ne-14 : if P u<1thenP u=1 
6770 9oto 500 
7000 rem stampa interessi 
7020 nu.m=som#99/108 : snum=snum+num 
7030 P r i nt " ! " ; 1 ef t$ C m$ < r. >, 2 > ; " / " ; r 

i9ht$ <. w$<n), 2> ; "I"; 

7040 if som<0thenP rint"-"; 

7050 if som®0thenPrint" 

7060 if som>0then Print"+"; 

7078 P r i nt " I " ; sP c < 10-1 eri< str$ < som > > 
>abs (. som > ; " RI I " ; sP c < 4-1 en < str$ 
<99>)>; 

7075 P r i ntr i 9ht$ < str$ < 99 > , l eri (. str$ < 
99 >)-1>;" i"; 

7080 i f nu.m<0theriP r i nt " - " ; 

7090 if nu.m=0 then Print" "J 
7100 if num>0thenPrint"+"; 

7110 Pr int" I " ; sPcai-1 en < str $< int<n 
um > > ) > ; abs < i nt (. num ) ) ; "III" 

7120 return 

8000 rem controllo data <da$) 

8010 ifleft$<da$,1)<"0"orleft$<da$, 

1 >>"9"then f»1 : return 
8020 ifmid$ < da$,2,1)<"0"or mid$ <da$ 
,2,1> >"9"then f®1 : return 
8030 ifmid$<da$,4,1><"0"orrnid$ <da$, 
4,1> >"9"thenf«1 : return 
8040 ifri9ht$ < da$,1><"0"orri9ht$ <da 
$, 1 )>"9"therìf« 1 : return 
8050 mese«va l (. r i 9ht$ < da$, 2 > > : i f mese 
®0ormese>12thenf®l : return 
8060 9 i o=va l (. I ef t$ < da$, 2 > > : i f 9 i o>m 
<mese)or 9io»0thenf=1 : return 
8070 f=0 : return 
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